object FrameForm: TFrameForm Left = 174 Top = 188 Width = 578 Height = 224 Hint = 'Castillo TextEditor' Caption = 'Castillo TextEditor' Color = clAppWorkSpace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] FormStyle = fsMDIForm Icon.Data = {} Menu = MainMenu1 Position = poDefault WindowMenu = Window1 OnActivate = FormActivate OnCreate = FormCreate OnDestroy = FormDestroy OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object StatusBar1: TStatusBar Left = 0 Top = 158 Width = 570 Height = 20 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Panels = < item Width = 200 end item Alignment = taCenter Width = 50 end item Alignment = taCenter Width = 50 end item Alignment = taCenter Width = 50 end> ParentFont = False SimplePanel = False end object Toolbar971: TToolbar97 Left = 22 Top = 30 Width = 259 Height = 52 Caption = 'Toolbar' CloseButton = False OnDockChanged = Toolbar971DockChanged object cmbtn1: TToolbarButton97 Left = 4 Top = 2 Width = 25 Height = 25 Hint = 'New Text File...' Glyph.Data = { 4E010000424D4E01000000000000760000002800000013000000120000000100 040000000000D80000000000000000000000100000001000000000000000C0C0 C000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111111 1111111000001111111111111111111000001111111111111111111000001110 0000000000111110000011102222222220111110000011102222222220111110 0000111022222222201111100000111022222222201111100000111022222222 2011111000001110222222222011111000001110222222222011111000001110 2222222220111110000011102222220000111110000011102222220201111110 0000111022222200111111100000111000000001111111100000111111111111 111111100000111111111111111111100000} ParentShowHint = False ShowHint = True OnClick = NewChild end object cmbtn2: TToolbarButton97 Left = 35 Top = 2 Width = 25 Height = 25 Hint = 'Open Existing Text File...' Glyph.Data = { 4E010000424D4E01000000000000760000002800000013000000120000000100 040000000000D800000000000000000000001000000010000000000000000084 8400C0C0C00000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00222222222222 2222222000002222222222222222222000002222222222222222222000002000 0000000022222220000020011111111102222220000020301111111110222220 0000204301111111110222200000203430111111111022200000204343000000 0000022000002034343434302222222000002043434343402222222000002034 3000000022222220000022000222222220002220000022222222222222002220 0000222222222022202022200000222222222200022222200000222222222222 222222200000222222222222222222200000} ParentShowHint = False ShowHint = True OnClick = OpenChild end object cmbtn3: TToolbarButton97 Left = 85 Top = 2 Width = 25 Height = 25 Hint = 'Save Text File' Enabled = False Glyph.Data = { 4E010000424D4E01000000000000760000002800000013000000120000000100 040000000000D800000000000000000000001000000010000000000000000084 8400C0C0C000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00222222222222 2222222000002222222222222222222000002220000000000000222000002201 1000000330102220000022011000000330102220000022011000000330102220 0000220110000000001022200000220111111111111022200000220110000000 0110222000002201033333333010222000002201033333333010222000002201 0333333330102220000022010333333330102220000022010333333330002220 0000220103333333303022200000220000000000000022200000222222222222 222222200000222222222222222222200000} ParentShowHint = False ShowHint = True OnClick = Save1Click end object speedbutton1: TToolbarButton97 Left = 60 Top = 2 Width = 25 Height = 25 Hint = 'Delete Text File' Enabled = False Glyph.Data = { 5A010000424D5A01000000000000760000002800000014000000130000000100 040000000000E40000000000000000000000100000001000000000000000C6C6 C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111111 1111111100001111111111111111111100001111111111111111111100001111 1011111111110111000011110001111111111111000011110000111111101111 0000111110001111110111110000111111000111100111110000111111100011 0011111100001111111100000111111100001111111110001111111100001111 1111000001111111000011111110001100111111000011111000011110011111 0000111100001111110011110000111100011111111101110000111111111111 111111110000111111111111111111110000111111111111111111110000} ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object cmbtn4: TToolbarButton97 Left = 116 Top = 2 Width = 25 Height = 25 Hint = 'Print Text File' Enabled = False Glyph.Data = { 4E010000424D4E01000000000000760000002800000013000000120000000100 040000000000D800000000000000000000001000000010000000000000008484 8400C0C0C000C6C6C60000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00222222222222 2222222000002222222222222222222000002220000000000022222000002203 3333333303022220000020000000000000302220000020333333444330002220 0000203333331113303022200000200000000000003302200000203333333333 0303022000002200000000003030022000002220555555550303022000002222 0500000500002220000022220555555550222220000022222050000050222220 0000222220555555550222200000222222000000000222200000222222222222 222222200000222222222222222222200000} ParentShowHint = False ShowHint = True OnClick = SpeedButton7Click end object cmbtn8: TToolbarButton97 Left = 147 Top = 2 Width = 25 Height = 25 Hint = 'Undo...' Enabled = False Glyph.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 0400000000007800000000000000000000001000000010000000000000008484 8400C0C0C000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00222222222222 2222222222222222222222222222222222222222222222222222222222222221 0222220000022222012222000022222220222200022222222022220020222222 2022220222002222012222222222000012222222222222222222222222222222 222222222222222222222222222222222222} ParentShowHint = False ShowHint = True OnClick = SpeedButton8Click end object cmbtn6: TToolbarButton97 Left = 197 Top = 2 Width = 25 Height = 25 Hint = 'Copy Selection to Clipboard' Enabled = False Glyph.Data = { 4E010000424D4E01000000000000760000002800000013000000120000000100 040000000000D80000000000000000000000100000001000000000000000C0C0 C000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111111 1111111000001111111111111111111000001111111111111111111000001111 1110000000001110000011111110222222201110000011111110200000201110 0000100000002222222011100000102222202000002011100000102000002222 2220111000001022222020020000111000001020000022220201111000001022 2220222200111110000010200200000001111110000010222202011111111110 0000102222001111111111100000100000011111111111100000111111111111 111111100000111111111111111111100000} ParentShowHint = False ShowHint = True OnClick = SpeedButton5Click end object cmbtn5: TToolbarButton97 Left = 172 Top = 2 Width = 25 Height = 25 Hint = 'Cut Selection to Clipboard' Enabled = False Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 040000000000800000000000000000000000100000001000000000000000FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111111 1111111100111111111111101101100111111110110101101111111011010110 1111111100010110111111111101000111111111110001111111111111101111 1111111111000111111111111101011111111111100100111111111110111011 1111111110111011111111111011101111111111111111111111} ParentShowHint = False ShowHint = True OnClick = SpeedButton4Click end object cmbtn7: TToolbarButton97 Left = 222 Top = 2 Width = 25 Height = 25 Hint = 'Paste from Clipboard' Enabled = False Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 00000084840084848400FFFFFF00C0C0C00000FFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00444444444444 4444444444111111111140000017777777710323231711111171023232177777 7771032323171117111102323217777717140323231777771144023232111111 1044032323232323204402300000000330440330555555032044023206006032 3044400000660000044444444000044444444444444444444444} ParentShowHint = False ShowHint = True OnClick = SpeedButton6Click end object ToolbarSep971: TToolbarSep97 Left = 29 Top = 2 Width = 6 Height = 25 end object ToolbarSep972: TToolbarSep97 Left = 141 Top = 2 Width = 6 Height = 25 end object ToolbarSep973: TToolbarSep97 Left = 110 Top = 2 Width = 6 Height = 25 end end object Dock972: TDock97 Left = 0 Top = 9 Width = 9 Height = 140 BoundLines = [blLeft] Position = dpLeft end object Dock973: TDock97 Left = 561 Top = 9 Width = 9 Height = 140 BoundLines = [blRight] Position = dpRight end object Dock974: TDock97 Left = 0 Top = 149 Width = 570 Height = 9 BoundLines = [blBottom] Position = dpBottom end object Dock971: TDock97 Left = 0 Top = 0 Width = 570 Height = 9 BoundLines = [blTop] end object ColorGrid1: TColorGrid Left = 235 Top = 39 Width = 100 Height = 100 TabOrder = 6 Visible = False end object ColorGrid2: TColorGrid Left = 373 Top = 41 Width = 100 Height = 100 TabOrder = 7 Visible = False end object OpenFileDialog: TOpenDialog Filter = ' All Files (*.*) | *.*|Text Files| *.txt|Source Files|*.html; *.' + 'htm;*.bas;*.c;*.pas' Options = [ofHideReadOnly, ofAllowMultiSelect] Left = 309 Top = 123 end object MainMenu1: TMainMenu Left = 189 Top = 125 object File1: TMenuItem Caption = '&File' object New1: TMenuItem Caption = '&New' Hint = 'New Text File' ShortCut = 16462 OnClick = NewChild end object Open1: TMenuItem Caption = '&Open...' Hint = 'Open an Existing Text File' ShortCut = 16463 OnClick = OpenChild end object N15: TMenuItem Caption = '-' end object Exit1: TMenuItem Caption = 'E&xit' Hint = 'Exit Castillo TextEditor' OnClick = Exit1Click end object N1: TMenuItem Caption = '-' end object N2: TMenuItem Caption = ' ' OnClick = N2Click end object N3: TMenuItem Caption = ' ' OnClick = N3Click end object N4: TMenuItem Caption = ' ' OnClick = N4Click end object N5: TMenuItem Caption = ' ' OnClick = N5Click end object N6: TMenuItem Caption = ' ' OnClick = N6Click end end object Window1: TMenuItem Caption = '&Window' GroupIndex = 9 object Tile1: TMenuItem Caption = '&Tile' Hint = 'Tile Opened Documents' OnClick = Tile1Click end object Cascade1: TMenuItem Caption = '&Cascade' Hint = 'Cascade Opened Documents' OnClick = Cascade1Click end object ArrangeIcons1: TMenuItem Caption = '&Arrange Icons' Hint = 'Arrange Icons' OnClick = ArrangeIcons1Click end end object Help1: TMenuItem Caption = 'Help' GroupIndex = 9 object UsingCastilloTextEditor1: TMenuItem Caption = 'Using Castillo TextEditor...' ShortCut = 112 OnClick = UsingCastilloTextEditor1Click end object N9: TMenuItem Caption = '-' end object CastilloBuenoSystemsHomePage1: TMenuItem Caption = 'Castillo Bueno Systems Home Page...' Hint = 'Castillo Bueno Systems Home Page...' OnClick = CastilloBuenoSystemsHomePage1Click end object PurchaseCastilloTextEditorOnline1: TMenuItem Caption = 'Purchase Castillo TextEditor Online...' Hint = 'Purchase Castillo TextEditor Online...' OnClick = PurchaseCastilloTextEditorOnline1Click end object N8: TMenuItem Caption = '-' end object About1: TMenuItem Caption = 'About...' Hint = 'About Castillo TextEditor...' OnClick = About1Click end end end object PrintDialog1: TPrintDialog Left = 251 Top = 124 end object SaveFileDialog: TSaveDialog Filter = 'All Files|*.*|Text Files|*.txt|Source Files|*.c; *.htm;*.html;*.' + 'bas;*.pas' Left = 158 Top = 126 end object FindDialog1: TFindDialog Left = 220 Top = 124 end object PopupMenu1: TPopupMenu AutoPopup = False Left = 341 Top = 123 object Find1: TMenuItem Caption = 'Find...' OnClick = Find1Click end object N7: TMenuItem Caption = '-' end object Replace1: TMenuItem Caption = 'Replace...' OnClick = Replace1Click end end object Timer1: TTimer OnTimer = Timer1Timer Left = 127 Top = 126 end object LMDShapeHint1: TLMDShapeHint Font.Charset = DEFAULT_CHARSET Font.Color = clInfoText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = hpBelowRight Style = hsNoseRect Left = 375 Top = 125 end object LMDAboutDlg1: TLMDAboutDlg Appname = 'Castillo TextEditor' CaptionTitle = 'Castillo TextEditor' Copyright = '(C) 1997-1998, Castillo Bueno Systems. All Rights Reserved.' Description = 'Castillo TextEditor: A cost efective solution to all your text e' + 'diting neeeds.' Effect = deExplodeExt Jump = 'http://www.castillobueno.com' Version = '3.00c' Left = 403 Top = 125 end object IniOut1: TIniOut Items.Strings = ( 'FrameForm;Height;;SOFTWARE\Castillo\Text Editor;Height;1;0' 'FrameForm;Left;;SOFTWARE\Castillo\Text Editor;Left;1;0' 'FrameForm;Width;;SOFTWARE\Castillo\Text Editor;Width;1;0' 'FrameForm;Top;;SOFTWARE\Castillo\Text Editor;Top;1;0' 'FrameForm;WindowState;wsNormal;SOFTWARE\Castillo\Text Editor;WSt' + 'ate;1;0' 'Toolbar971;DockedTo;;SOFTWARE\Castillo\Text Editor;ToolbarTo;1;0' 'ColorGrid1;BackgroundIndex;;SOFTWARE\Castillo\Text Editor;BackCo' + 'lor;1;0' 'ColorGrid1;ForegroundIndex;;SOFTWARE\Castillo\Text Editor;ForeCo' + 'lor;1;0' 'ColorGrid2;BackgroundIndex;;SOFTWARE\Castillo\Text Editor;String' + 'Color;1;0' 'ColorGrid2;ForegroundIndex;;SOFTWARE\Castillo\Text Editor;Commen' + 'tColor;1;0') RegistryRoot = LOCAL_MACHINE Left = 281 Top = 121 end object LimitMe1: TLimitMe Bija = 'CastilloTextEditor' Terminate = True BeforeTerminate = LimitMe1BeforeTerminate Left = 13 Top = 117 end object Timer2: TTimer OnTimer = Timer2Timer Left = 43 Top = 117 end end